Public Class CtaxCalculation
    Dim _dblTotal As Double
    Dim _dblDiscount As Double
    Dim _dblTax As Double
    Dim _dblCredit As Double
    Dim _dblDebit As Double
    Dim _dblPaid As Double
    Dim _dblBalance As Double
    Dim _dblGrossAmount As Double
    Dim _strDiscType As String

    Public Property TotalVal() As Double
        Get
            Return _dblTotal

        End Get
        Set(ByVal value As Double)
            _dblTotal = value
        End Set
    End Property
    Public Property DiscountVal() As Double
        Get
            Return _dblDiscount

        End Get
        Set(ByVal value As Double)
            _dblDiscount = value
        End Set
    End Property
    Public Property TaxVal() As Double
        Get
            Return _dblTax

        End Get
        Set(ByVal value As Double)
            _dblTax = value
        End Set
    End Property
    Public Property CreditVal() As Double
        Get
            Return _dblCredit

        End Get
        Set(ByVal value As Double)
            _dblCredit = value
        End Set
    End Property
    Public Property DebitVal() As Double
        Get
            Return _dblDebit

        End Get
        Set(ByVal value As Double)
            _dblDebit = value
        End Set
    End Property
    Public Property PaidVal() As Double
        Get
            Return _dblPaid

        End Get
        Set(ByVal value As Double)
            _dblPaid = value
        End Set
    End Property
    Public Property BalanceVal() As Double
        Get
            Return _dblBalance

        End Get
        Set(ByVal value As Double)
            _dblBalance = value
        End Set
    End Property
    Public Property GrossAmount() As Double
        Get
            Return _dblGrossAmount
        End Get
        Set(ByVal value As Double)
            _dblGrossAmount = value
        End Set
    End Property
    Public Property DiscType() As String
        Get
            Return _strDiscType

        End Get
        Set(ByVal value As String)
            _strDiscType = value
        End Set
    End Property

End Class
